home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Moon Eclipse.gt5 < prev    next >
Encoding:
Text File  |  2003-08-15  |  4.2 KB  |  159 lines
  1.  Set wnd = OpenWorkspace("mz_1.ws5")
  2.  Set Camera = wnd.camera
  3.  Set theTime = camera.time
  4.  Set Direction = camera.Direction
  5.  Set Location = camera.Location
  6. '---- end standard prologue'
  7. 'wnd.MDIWindow.State = SW_MAXIMIZE
  8.  
  9.  set flt =wnd.Filters
  10.  set objects = flt.objects
  11.  set sky = flt.skyChart
  12.  set ecliptic = sky.Guides.Ecliptic
  13.  theTime.Units = 1
  14.  theTime.step = 0.50000000000000E+000
  15. set pl =PlayerWindow
  16. 'pl.top=450
  17. 'pl.left=600
  18. pl.top=Screen.height-150
  19. pl.left=Screen.width-200
  20.  
  21. set txt = CreateTextWindow
  22. 'txt.Locate 0,450,450,115
  23. txt.Locate 0,Screen.height-145,450,115
  24. txt.SetCaption " "
  25. txt.Loadfile "mz_w4.html"
  26.  Set obj = Location.CentralObject
  27.  set obj01=Direction.Object
  28.  txt.Show
  29. settimemark
  30.  set moons = flt.objects.moons
  31.  set planets = flt.objects.planets
  32.  moons.Magnification(301)=50 : UpdateWindows
  33.  pause 1000
  34.  moons.Magnification(301)=100 : UpdateWindows
  35. pause 1000
  36.  moons.Magnification(301)=75 : UpdateWindows
  37. pause 1000
  38.  moons.Magnification(301)=50 : UpdateWindows
  39. pause 1000
  40.  theTime.JDstr = "2452952.41667"
  41.  pause 1000
  42.  moons.Magnification(301)=75 : UpdateWindows
  43. pause 1000
  44.  moons.Magnification(301)=100 : UpdateWindows
  45. pause 1000
  46.  moons.Magnification(301)=75 : UpdateWindows
  47. pause 1000
  48.  moons.Magnification(301)=50 : UpdateWindows
  49.  pause 1000
  50.  theTime.JDstr = "2452938.50000"
  51.  moons.Magnification(301)=25 : UpdateWindows
  52.  Planets.Magnification(3)=10 : UpdateWindows
  53.  
  54.  Direction.Zoom = 0.5000000000000E+000 : UpdateWindows
  55.  Direction.Zoom = 1.0000000000000E+000 : UpdateWindows
  56.  Direction.Zoom = 2.0000000000000E+000 : UpdateWindows
  57.  Direction.Zoom = 3.0000000000000E+000 : UpdateWindows
  58.  Direction.Zoom = 6.0000000000000E+000 : UpdateWindows
  59.  theTime.Forward
  60.  WaitFrames 27
  61.  theTime.Stop
  62. waitfortime 14000
  63. txt.Locate 0,Screen.height-135,450,100
  64. txt.Loadfile "mz_w1.html"
  65.  theTime.Units = 3
  66.  theTime.step = 3.00000000000000E+000
  67.  theTime.Forward
  68.  WaitFrames 105
  69.  theTime.Stop
  70.  pause 1000
  71.  Planets.Magnification(10)=1
  72.  moons.orbit(301) = False
  73.  moons.Label(301) = False
  74.  moons.Magnification(301)=1
  75.  Planets.Magnification(3)=1 : UpdateWindows
  76.  
  77. if GetWindowCount() <=1 then: newWindow: end if
  78. TileWindows 1
  79.  
  80. Set wnd2 = getWindow(2)
  81. Set Camera2 = wnd2.camera
  82. Set theTime2 = camera2.time
  83. Set Direction2 = camera2.Direction
  84. Set Location2 = camera2.Location
  85. '---- end standard prologue'
  86.  Direction2.Zoom = 1.000000000000E+000
  87.  obj01.objectType = &H6D6F6F6E
  88.  obj01.objectID = 301
  89.  Direction.Object=obj01
  90.  Direction.lock = 1
  91.  Direction.Zoom = 1.20000000000000E+001
  92. set flt2 =wnd2.Filters
  93. set sky2 = flt2.skyChart
  94. sky2.QuickInfo=False
  95. set ecliptic2 = sky2.Guides.Ecliptic
  96. ecliptic.Checked = false
  97. ecliptic2.Checked = false
  98. flt2.objects.planets.Label(3) = False
  99. flt2.wnd.state = 0
  100. Location2.wnd.state = 0
  101. flt2.objects.planets.Label(10) = False
  102. flt2.objects.planets.Label(3) = False 
  103. flt2.objects.planets.Magnification(10)=1 : UpdateWindows
  104. flt2.objects.planets.Magnification(3)=1 : UpdateWindows
  105.  theTime.Units = 3
  106.  theTime.step = 4.0000000000000E-000
  107.  theTime.TimeZone = 3.00000000000000E+000
  108.  theTime.mode = 1
  109.  theTime.JDstr = "2452952.41667"
  110.  theTime2.Units = 3
  111.  theTime2.step = 4.0000000000000E-000
  112.  theTime2.TimeZone = 3.00000000000000E+000
  113.  theTime2.mode = 1
  114.  theTime2.JDstr = "2452952.41667"
  115.  
  116.  Set obj2 = Location2.CentralObject
  117.  obj2.ObjectType=&H6D6F6F6E
  118.  obj2.ObjectID = 301
  119.  Location2.CentralObject=obj2
  120.  Location2.SetLocParams 0, 2, 2
  121.  Location.SetLocParams 0, 2, 2
  122. pause 2000
  123.  Location.SetLonlat 2.34165013524151E-001 , 9.16879624837124E-001
  124.  set obj3=Direction2.Object
  125.  obj3.objectType = &H706C6E74
  126.  obj3.objectID = 3
  127.  Direction2.Object=obj3
  128.  Direction2.lock = 1
  129.  Direction2.Zoom = 7.0000000000000E+000
  130.  sky.TrueSkyColor = true : UpdateWindows
  131.  
  132. waitfortime 8000
  133.  txt.Loadfile "mz_w2.html"
  134.  txt.Locate 0,Screen.height-140,450,115
  135. ' pause 9000
  136.  theTime.Forward
  137.  theTime2.Forward
  138.  WaitFrames 110
  139.  theTime.Stop
  140.  theTime2.Stop
  141. waitfortime 10000
  142. set txt1 = CreateTextWindow
  143. txt1.Loadfile "mz_w3.html"
  144. txt1.SetCaption " "
  145. 'txt1.Locate 370,30,450,100
  146. txt1.Locate Screen.width/2-10,0,450,100
  147. txt1.Show
  148.  
  149.  theTime.Forward
  150.  theTime2.Forward
  151.  WaitFrames 110
  152.  theTime.Stop
  153.  theTime2.Stop
  154. waitfortime 8000
  155.  txt.Close
  156.  txt1.Close
  157. ' end recording
  158.  
  159.